This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
hi Silke,
I copied your Script (and Functions) in to an Agent and it works:
'********************************
Sub Initialize
On Error GoTo ErrHandler
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim Url As String
Dim Url2 As String
Dim Dateiname As String
Dim w As NotesUIWorkspace
Set ses = New NotesSession
Set db = ses.CurrentDatabase
Set w = New NotesUIWorkspace
Dim okSuccess As Variant
Url = "http://www.umweltdaten.de/publikationen/fpdf-l/2227.pdf"
Dateiname = "C:\Temp\_a_pdf_file_from_internet.pdf"
okSuccess = DownloadFile( Url, Dateiname )
Call DeleteUrlCacheEntry(Url)
Print "Try Download successfull(?): " & CStr(okSuccess)
If Not okSuccess Then
'...
End If
Exit Sub
ErrHandler:
Resume Next
End Sub
'********************************